home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / fraint16.arc / DEMO.KEY < prev    next >
Text File  |  1991-06-02  |  9KB  |  627 lines
  1. ;; Fractint demonstration autokey file.
  2. ;; Written by Pieter Branderhorst.
  3. Restart:
  4. WAIT 4         ; view credits a while
  5. ;; video modes, ifs, zoom & rotate, plasma, cycle, authors help
  6. "M"
  7. WAIT 1
  8. DOWN
  9. WAIT 1.5
  10. ENTER
  11. WAIT 1
  12. "ifs"
  13. WAIT 1
  14. ENTER
  15. WAIT 1
  16. "fern"
  17. WAIT 2
  18. ENTER
  19. WAIT 2         ; menu, pick 'x' options
  20. DOWN * 2
  21. WAIT 1
  22. ENTER
  23. WAIT .5
  24. DOWN * 2
  25. "70"             ; max iter
  26. WAIT 1.5
  27. ENTER
  28. WAIT 1         ; menu, pick select video mode
  29. ENTER
  30. WAIT 1         ; page thru video modes a bit to show there are many
  31. PAGEDOWN
  32. WAIT 1
  33. PAGEDOWN
  34. WAIT 1
  35. PAGEDOWN
  36. WAIT 1
  37. PAGEDOWN
  38. WAIT 1
  39. PAGEUP * 4
  40. WAIT 1
  41. ENTER        ; get fern going in default video mode
  42. WAIT 3.5
  43. PAGEUP * 11    ; zoom and rotate
  44. WAIT .3
  45. 1142 * 17
  46. WAIT .3
  47. RIGHT * 25
  48. UP
  49. WAIT 1.5
  50. ENTER
  51. CALCWAIT
  52. WAIT 7        ; finished ifs fern, view it a while
  53. "t"             ; start plasma sequence
  54. WAIT 1
  55. "plas"
  56. WAIT 1
  57. ENTER
  58. WAIT 2
  59. ENTER
  60. CALCWAIT
  61. WAIT 2
  62. "-"             ; finished plasma, cycle it a few ways
  63. WAIT 8
  64. "+"
  65. WAIT 5
  66. F5
  67. WAIT 9
  68. F9
  69. WAIT 18
  70. F1        ; start help sequence
  71. WAIT .1
  72. F1
  73. DOWN
  74. WAIT 2
  75. WAIT .5
  76. ENTER
  77. WAIT  9     ; view intro screen 1
  78. PAGEDOWN
  79. PAGEDOWN
  80. WAIT  9     ; intro screen 3
  81. F1
  82. DOWN * 2
  83. WAIT .5
  84. ENTER
  85. WAIT  7     ; conditions on use
  86. ESC
  87. WAIT 2
  88. ESC
  89. INSERT
  90. WAIT 3
  91. ;;
  92. ;; julia hypnoteyes, palette editor, same image with decomp
  93. ;; ok to start a copy of file from here for testing
  94. "tjulia"        ; pick julia
  95. WAIT  1
  96. ENTER
  97. WAIT  1
  98. ".25892"        ; change parameters
  99. DOWN
  100. "0"
  101. WAIT  1
  102. ENTER
  103. WAIT  1
  104. ENTER
  105. WAIT  1
  106. ENTER
  107. CALCWAIT    ; generate initial julia
  108. WAIT 1
  109. PAGEUP * 25    ; zoom into it
  110. WAIT .1
  111. 1141 * 11
  112. PAGEUP
  113. WAIT 1
  114. ENTER        ; start generating 1st zoom
  115. WAIT 6
  116. PAGEUP * 5    ; interrupt with 2nd (final) zoom
  117. 1141 * 2
  118. RIGHT * 3
  119. UP * 8
  120. WAIT 1
  121. ENTER        ; start generating final zoom of julia
  122. WAIT .5
  123. "X"             ; interrupt to change some "x" options
  124. WAIT 1
  125. DOWN * 2
  126. "210"
  127. DOWN
  128. "0"
  129. WAIT  1
  130. ENTER
  131. CALCWAIT    ; now generate the final julia
  132. WAIT 1
  133. "-"
  134. F6
  135. DOWN * 5
  136. WAIT 35     ; view cycling of julia a while
  137. ESC        ; exit cycling
  138. WAIT  1.0
  139. "E"             ; palette editor
  140. WAIT  1
  141. ENTER
  142. WAIT  7     ; view palette editor a while
  143. F1
  144. WAIT  1     ; just a sec at command summary
  145. ENTER        ; go to descriptive part
  146. WAIT  9     ; view palette editor help a while
  147. ESC
  148. WAIT 1        ; adjust a color
  149. "X"
  150. WAIT  2
  151. "R5"
  152. WAIT  1
  153. "B5"
  154. WAIT  1
  155. "G5"
  156. WAIT  1
  157. "R4"
  158. WAIT  1
  159. "3"
  160. WAIT  1
  161. "2"
  162. WAIT  1
  163. "X"
  164. WAIT  3
  165. ESC
  166. WAIT  2
  167. "-"             ; cycle julia a bit more
  168. F6
  169. DOWN * 5
  170. WAIT 12
  171. ESC
  172. "V"             ; use view window cause next stage is a bit slower
  173. WAIT 1
  174. "y"
  175. DOWN
  176. "2"
  177. WAIT 1
  178. ENTER
  179. "X"             ; set decomp
  180. DOWN * 10
  181. WAIT  1
  182. "256"
  183. WAIT  1
  184. ENTER        ; start generating decomp julia
  185. WAIT  15
  186. "CL"            ; interrupt to change to blues.map
  187. WAIT  1
  188. "BLUES"
  189. WAIT  1
  190. ENTER
  191. ESC
  192. CALCWAIT    ; finish the calculation
  193. WAIT 1
  194. "CL"            ; change to neon.map
  195. WAIT .6
  196. "NEON"
  197. WAIT .6
  198. ENTER
  199. WAIT 1
  200. "-"             ; start cycling, speed it up
  201. UP * 60
  202. WAIT 15     ; view cycling of decomp a while
  203. ESC
  204. WAIT  1
  205. INSERT
  206. WAIT 3
  207. ;;
  208. ;; lorenz, mandel biomorph
  209. ;; ok to start a copy of file from here for testing
  210. "tlor"          ; select lorenz
  211. WAIT 1
  212. ENTER
  213. WAIT 1
  214. ENTER
  215. WAIT .6     ; default video
  216. ENTER
  217. WAIT .6
  218. ENTER
  219. WAIT 30     ; view lorenz for a while
  220. ESC
  221. WAIT 3
  222. DOWN        ; select type from menu
  223. DOWN * 3
  224. WAIT .6
  225. ENTER
  226. "mandel"
  227. WAIT 1
  228. ENTER
  229. WAIT .6
  230. ENTER
  231. WAIT 3        ; start generating image
  232. "X"             ; interrupt to x options, enable biomorph
  233. WAIT 1
  234. UP
  235. UP
  236. WAIT .6
  237. "0"
  238. WAIT .8
  239. ENTER
  240. CALCWAIT
  241. WAIT 6        ; view biomorph for a while
  242. "M"
  243. WAIT 2
  244. F1
  245. WAIT 6        ; view command help, 2 pages for a while
  246. PAGEDOWN
  247. WAIT 6
  248. ESC
  249. INSERT
  250. WAIT 3
  251. ;;
  252. ;; mandel, zoom in stages to a mini lake, using btm along the way,
  253. ;;   3d transforms
  254. ;; ok to start a copy of file from here for testing
  255. "TMAND"
  256. WAIT .6
  257. ENTER
  258. WAIT .6
  259. ENTER
  260. WAIT .6     ; default video
  261. ENTER
  262. WAIT .6
  263. ENTER
  264. CALCWAIT    ; default mandel
  265. WAIT 1.5
  266. PAGEUP * 30    ; zoom into it
  267. WAIT .2
  268. 1145 * 2
  269. 1115 * 4
  270. UP * 2
  271. WAIT  1
  272. ENTER        ; 1st zoom of mandel
  273. WAIT  7
  274. "X"             ; interrupt with change to btm
  275. WAIT  1
  276. "B"
  277. WAIT  1
  278. ENTER
  279. CALCWAIT
  280. WAIT 1.5
  281. PAGEUP * 29    ; zoom in
  282. WAIT  1
  283. RIGHT * 7
  284. UP * 11
  285. WAIT 1.4
  286. ENTER        ; 2nd zoom of mandel
  287. WAIT 5
  288. "V"             ; interrupt to use view window to speed things up
  289. WAIT 1
  290. "Y"
  291. DOWN
  292. "2"
  293. WAIT 1
  294. ENTER
  295. CALCWAIT    ; 2nd zoom of mandel
  296. WAIT 2.5
  297. PAGEUP * 27    ; zoom in
  298. WAIT .2
  299. RIGHT * 17
  300. WAIT .2
  301. DOWN * 10
  302. WAIT 1.4
  303. ENTER        ; calc 3rd zoom of mandel
  304. WAIT 9
  305. "X"             ; interrupt with increase of maxiter & log palette
  306. WAIT .5
  307. DOWN * 2
  308. "1500"
  309. DOWN * 6
  310. WAIT .2
  311. "1"
  312. WAIT 1.4
  313. ENTER        ; calc 3rd zoom
  314. WAIT 12
  315. "CL"            ; interrupt to change to firestrm.map
  316. WAIT 1
  317. "FIRE"
  318. WAIT 1.5
  319. ENTER
  320. WAIT .3
  321. ESC
  322. CALCWAIT    ; finish 3rd zoom
  323. WAIT 1
  324. PAGEUP * 25    ; zoom in
  325. WAIT .2
  326. LEFT * 25
  327. UP * 13
  328. WAIT .5
  329. PAGEUP
  330. WAIT .5
  331. ENTER        ; calc 4th zoom
  332. CALCWAIT
  333. WAIT 1
  334. PAGEUP * 19    ; zoom in
  335. WAIT .4
  336. 1144 * 13
  337. WAIT .3
  338. PAGEUP * 3
  339. DOWN * 6
  340. WAIT .1
  341. LEFT * 5
  342. 1144
  343. WAIT 1
  344. ENTER        ; calc 5th zoom, final image
  345. WAIT 1
  346. "X"             ; change to solid guessing and inside=0
  347. "G"
  348. DOWN * 3
  349. WAIT .4
  350. "0"
  351. WAIT 1
  352. ENTER
  353. "V"             ; increase size of view window for final image
  354. DOWN
  355. WAIT .4
  356. "1.5"
  357. WAIT .6
  358. ENTER
  359. WAIT 20
  360. TAB        ; interrupt to show tab display
  361. WAIT 6
  362. ESC
  363. CALCWAIT
  364. PAGEUP        ; adjust image a tad (clip some jags at bottom and right)
  365. UP
  366. LEFT
  367. ENTER
  368. CALCWAIT
  369. WAIT 3        ; show final image for a while
  370. "x"             ; save image for following 3d demo
  371. DOWN * 5
  372. WAIT .5
  373. "demotmp1"
  374. DOWN
  375. "y"
  376. WAIT .5
  377. ENTER
  378. "m"
  379. WAIT .6
  380. RIGHT
  381. DOWN
  382. WAIT 1
  383. ENTER
  384. CALCWAIT
  385. WAIT 2        ; now it has been saved
  386. "-"
  387. UP * 30     ; finished mini-lake, cycle colors a while
  388. WAIT 17
  389. F5        ; now random colors for a while
  390. UP * 25
  391. WAIT 23
  392. ESC
  393. ;;
  394. ;; 3d transforms using mini-mandel
  395. ;; ok to start a copy of file from here for testing IF demotmp1 already exists
  396. "r"             ; display demotmp1 to show input image and to move it over
  397. "demotmp1"
  398. WAIT .6
  399. ENTER
  400. WAIT 2.5
  401. ENTER
  402. CALCWAIT
  403. WAIT 1
  404. PAGEUP
  405. RIGHT * 18
  406. ENTER
  407. CALCWAIT
  408. "s"             ; save demotmp2
  409. CALCWAIT
  410. WAIT 1.5
  411. "m"             ; invoke 3d from the menu
  412. WAIT .6
  413. RIGHT
  414. DOWN * 3
  415. WAIT 1
  416. ENTER
  417. "demotmp1"
  418. WAIT .8
  419. ENTER
  420. WAIT 1
  421. ENTER
  422. WAIT 1
  423. ENTER        ; 1st 3d parms screen
  424. WAIT .5
  425. DOWN * 2
  426. WAIT 1
  427. ENTER        ; 2nd parms, interpolated colors chosen
  428. WAIT .5
  429. DOWN * 5
  430. "10"
  431. DOWN
  432. "70"
  433. WAIT 1
  434. ENTER        ; 3rd 3d parms, roughness 10, clip 70
  435. CALCWAIT    ; transform
  436. WAIT 3
  437. "-"             ; color cycle
  438. DOWN * 65
  439. WAIT 30
  440. ESC
  441. "m"             ; back to menu, pick 3d again
  442. WAIT .6
  443. RIGHT
  444. DOWN * 3
  445. WAIT 1
  446. ENTER
  447. "demotmp2"
  448. WAIT .6
  449. ENTER
  450. WAIT .7
  451. ENTER
  452. WAIT .5
  453. DOWN * 3
  454. "y"
  455. WAIT .8
  456. ENTER        ; 1st 3d parms, spherical selected
  457. WAIT 1
  458. ENTER        ; 2nd 3d parms, default interpolate colors
  459. WAIT .5
  460. DOWN * 5
  461. "40"
  462. WAIT .8
  463. ENTER        ; 3rd 3d parms, roughness 40
  464. CALCWAIT    ; transform
  465. WAIT 2
  466. "-"             ; cycle colors
  467. F9
  468. DOWN * 90
  469. WAIT 20
  470. "+"             ; cycle colors the other way
  471. F8
  472. DOWN * 90
  473. WAIT 32
  474. ESC
  475. INSERT
  476. WAIT 3
  477. ;;
  478. ;; gingerbreadman, lsystem color snowflake
  479. ;; ok to start a copy of file from here for testing
  480. "TGINGERB"
  481. WAIT .8
  482. ENTER
  483. WAIT .8
  484. ENTER
  485. WAIT .6
  486. ENTER
  487. WAIT .6
  488. ENTER
  489. WAIT 32     ; view gingerbreadman a while (it goes forever)
  490. F4        ; go to video mode 640x480x16 for lsystem demo
  491. ESC        ; interrupt resumed gingerbreadman
  492. WAIT .8
  493. "T"             ; start lsys sequence
  494. WAIT .6
  495. "LSYS"
  496. WAIT .8
  497. ENTER
  498. WAIT 2
  499. "SNOWFLAKEC"
  500. WAIT 2
  501. ENTER
  502. WAIT .6
  503. "3"
  504. WAIT 1
  505. ENTER
  506. CALCWAIT
  507. WAIT 2
  508. "-"
  509. F2
  510. WAIT 22     ; view snowflake cycling
  511. ESC
  512. INSERT
  513. WAIT 3
  514. ;;
  515. ;; bunch of types with default parameters just to show variety
  516. ;; ok to start a copy of file from here for testing
  517. "T"
  518. WAIT .5
  519. "JULIA"
  520. WAIT .8
  521. ENTER
  522. ".3"
  523. DOWN
  524. ".6"
  525. WAIT .8
  526. ENTER
  527. WAIT .6
  528. ENTER
  529. WAIT .6
  530. ENTER
  531. CALCWAIT
  532. WAIT 5
  533. "T"
  534. WAIT .5
  535. "LAMBDAFN"
  536. WAIT .8
  537. ENTER
  538. WAIT .8
  539. ENTER
  540. CALCWAIT
  541. WAIT 7
  542. "T"
  543. WAIT .5
  544. "SIER"
  545. WAIT .8
  546. ENTER
  547. WAIT .8
  548. ENTER
  549. CALCWAIT
  550. WAIT 4
  551. "T"
  552. WAIT .5
  553. "SPIDER"
  554. WAIT .8
  555. ENTER
  556. WAIT .8
  557. ENTER
  558. PAGEUP * 3
  559. ENTER
  560. CALCWAIT
  561. WAIT 5
  562. "-"
  563. F6
  564. WAIT 20
  565. ESC
  566. "T"
  567. WAIT .5
  568. "UNITY"
  569. WAIT .8
  570. ENTER
  571. WAIT .8
  572. ENTER
  573. CALCWAIT
  574. WAIT 6
  575. "V"     ; set view to 1/2 size for the rest, they're a bit slower
  576. WAIT 1
  577. "Y"
  578. DOWN
  579. "2"
  580. WAIT 1
  581. ENTER
  582. "T"
  583. WAIT .5
  584. "NEWTON"
  585. WAIT .8
  586. ENTER
  587. WAIT .8
  588. "4"
  589. WAIT .8
  590. ENTER
  591. CALCWAIT
  592. WAIT 6
  593. "T"
  594. WAIT .5
  595. "BARNSLEYJ2"
  596. WAIT .8
  597. ENTER
  598. WAIT .8
  599. ENTER
  600. CALCWAIT
  601. WAIT 5
  602. "T"
  603. WAIT .5
  604. "FORMUL"
  605. WAIT .8
  606. ENTER
  607. WAIT 1
  608. "WINEG"
  609. WAIT 2
  610. ENTER
  611. WAIT .8
  612. ENTER
  613. PAGEUP * 9
  614. LEFT * 23
  615. ENTER
  616. CALCWAIT
  617. WAIT 5
  618. "-"
  619. F4
  620. WAIT 27
  621. ESC
  622. ;;
  623. ;; back around again
  624. INSERT
  625. WAIT 10     ; credits for a while
  626. GOTO Restart    ; start over again
  627.